home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Today - The Disc! 5 / CD-ROM Today - The Disc (Issue 5)(November 1994).ISO / mac / DHA demo / Don Norman Folder / Don Norman demo / Don Norman demo.rsrc / OWdf_32681_Glossary.def < prev    next >
Text File  |  1994-09-21  |  4KB  |  212 lines
  1. WINDOWPROPERTIES
  2. NAME:Glossary
  3. CLOSESCRIPT:set donterase of window @WindowName to winc(@WindowName)
  4. USELOCALRECTS:true
  5. RECT:186,113,493,338
  6. COLLAPSEDRECT:446,38,596,37
  7. HSCROLL:false
  8. VSCROLL:false
  9. GROWICON:false
  10. SCROLL:0,0
  11. COLLAPSED:false
  12. WANTSIDLETIME:true
  13. ANIMATEDCURSORID:0
  14. DONTERASE:false
  15. NEVERSELECT:false
  16. USEPALETTEID:0
  17. CURSOR:0
  18. IDLESCRIPT:
  19. USERDATA:
  20. SELECTSCRIPT:
  21. PUTFILEDIALOGID:4500
  22. SAVEBEFORECLOSING:true
  23. ISCOLLAPSABLE:true
  24. LIMITWINDOWRECT:true
  25. SAVEMETHOD:Resource
  26. SAVECHANGES:true
  27.  
  28. PICTURE
  29. NAME:Picture1
  30. VISIBLE:true
  31. SCRIPT:beep┬
  32. beep
  33. CURSOR:128
  34. TYPE:Resource
  35. PATH:Glossary
  36. TOPLEFT:0,0
  37. RECT:0,0,307,226
  38. FITTOFRAME:false
  39. HASFRAME:false
  40. MASK:false
  41. SCROLL:0,0
  42. TRIMRECT:-1,-1,-1,-1
  43. USERDATA:
  44. INKMODE:srcCopy
  45. COLORTABLEID:0
  46. DITHER:false
  47.  
  48. TEXT
  49. NAME:Text2
  50. VISIBLE:true
  51. SCRIPT:put @WindowName into wn┬
  52. ask "Go to which Glossary page?"┬
  53. if it is a number┬
  54. then┬
  55. if it > 0 and it < 66┬
  56. then┬
  57. set the text1_page of window wn to it┬
  58. set the page_textdata of window wn to it┬
  59. end if┬
  60. end if
  61. CURSOR:128
  62. TYPE:Describe
  63. PATH:@StackPath:Sample Text:myTextFile
  64. RECT:237,202,271,222
  65. HASFRAME:false
  66. INSET:1
  67. TRANSPARENT:true
  68. EDITABLE:false
  69. SELECTABLE:false
  70. PAGE:0
  71. NUMBEROFPAGES:1
  72. SCROLL:0,0
  73. HASVSCROLL:false
  74. LINEHEIGHTFONTASCENT:-1,-1
  75. SELECTION:6,5
  76. DEFAULTFONT:Palatino
  77. DEFAULTSIZE:12
  78. DEFAULTSTYLE:plain
  79. TEXTDATA:of 65
  80. USERDATA:
  81. MOVEMOUSETICKS:0
  82. ALIGNMENT:Left
  83. PAGEBREAKTABLE:1
  84.  
  85. TEXT
  86. NAME:Page
  87. VISIBLE:true
  88. SCRIPT:put @WindowName into wn┬
  89. ask "Go to which Glossary page?"┬
  90. if it is a number┬
  91. then┬
  92. if it > 0 and it < 66┬
  93. then┬
  94. set the text1_page of window wn to it┬
  95. set the page_textdata of window wn to it┬
  96. end if┬
  97. end if
  98. CURSOR:128
  99. TYPE:Describe
  100. PATH:@StackPath:Sample Text:myTextFile
  101. RECT:212,202,240,222
  102. HASFRAME:false
  103. INSET:1
  104. TRANSPARENT:true
  105. EDITABLE:false
  106. SELECTABLE:false
  107. PAGE:0
  108. NUMBEROFPAGES:1
  109. SCROLL:0,0
  110. HASVSCROLL:false
  111. LINEHEIGHTFONTASCENT:-1,-1
  112. SELECTION:3,2
  113. DEFAULTFONT:Palatino
  114. DEFAULTSIZE:12
  115. DEFAULTSTYLE:plain
  116. TEXTDATA:41
  117. USERDATA:
  118. MOVEMOUSETICKS:0
  119. ALIGNMENT:Right
  120. PAGEBREAKTABLE:1
  121.  
  122. TEXT
  123. NAME:Text1
  124. VISIBLE:true
  125. SCRIPT:
  126. CURSOR:128
  127. TYPE:Field
  128. PATH:b,43
  129. RECT:5,16,304,181
  130. HASFRAME:false
  131. INSET:1
  132. TRANSPARENT:true
  133. EDITABLE:false
  134. SELECTABLE:true
  135. PAGE:1
  136. NUMBEROFPAGES:1
  137. SCROLL:0,0
  138. HASVSCROLL:false
  139. LINEHEIGHTFONTASCENT:-1,-1
  140. SELECTION:39,38
  141. DEFAULTFONT:Palatino
  142. DEFAULTSIZE:12
  143. DEFAULTSTYLE:plain
  144. TEXTDATA:
  145. USERDATA:
  146. MOVEMOUSETICKS:0
  147. ALIGNMENT:Default
  148. PAGEBREAKTABLE:1
  149.  
  150. TRANSPARENTBUTTON
  151. NAME:nextpage
  152. VISIBLE:true
  153. SCRIPT:put @WindowName into wn┬
  154. get the page_textdata of window wn┬
  155. add 1 to it┬
  156. if it < 66┬
  157. then┬
  158. set the page_textdata of window wn to it┬
  159. set the text1_page of window wn to it┬
  160. end if
  161. CURSOR:128
  162. RECT:269,200,299,218
  163. HASFRAME:false
  164. USERDATA:
  165. ISTRANSPARENT:true
  166. RGBFILLCOLOR:0,0,0
  167. INKMODE:srcCopy
  168.  
  169. TRANSPARENTBUTTON
  170. NAME:prevpage
  171. VISIBLE:true
  172. SCRIPT:put @WindowName into wn┬
  173. get the page_textdata of window wn┬
  174. subtract 1 from it┬
  175. if it > 0┬
  176. then┬
  177. set the page_textdata of window wn to it┬
  178. set the text1_page of window wn to it┬
  179. end if
  180. CURSOR:128
  181. RECT:194,200,224,218
  182. HASFRAME:false
  183. USERDATA:
  184. ISTRANSPARENT:true
  185. RGBFILLCOLOR:0,0,0
  186. INKMODE:srcCopy
  187.  
  188. TRANSPARENTBUTTON
  189. NAME:TranspButton1
  190. VISIBLE:true
  191. SCRIPT:global glossterms┬
  192. put @WindowName into wn┬
  193. --put @ClickChunk into thisone┬
  194. --get item ((item 2 of thisone + 1)/2) of --"1,2,2,14,20,25,28,30,32,35,35,37,40"┬
  195. if glossterms<>"" then put glossterms into g┬
  196. else put getstr("GlossTerms") into g┬
  197. get popitup(g,0,the clickh,the clickv)┬
  198. get item 1 of it┬
  199. if it <> 0┬
  200. then┬
  201. set the text1_page of window wn to it┬
  202. set the page_textdata of window wn to it┬
  203. end if
  204. CURSOR:128
  205. RECT:11,200,97,218
  206. HASFRAME:false
  207. USERDATA:
  208. ISTRANSPARENT:true
  209. RGBFILLCOLOR:0,0,0
  210. INKMODE:srcCopy
  211.